OnMouseDown a cursor
Otázka od: Radek
28. 11. 2003 7:47
Ahoj,
mam na formu PaintBox a potreboval bych aby se v udalosti OnMouseDown zmenil
kurzor u mysi a pri OnMouseUp zase zpatky.
A moc se me nedari. Ten kurzor se pri zmacknutem tlacitku u myse nejak nechce
prekreslit - nevite nekdo jak na to ?
Radek
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jan Fiala
28. 11. 2003 8:02
28.11.2003 Radek:
> Ahoj,
> mam na formu PaintBox a potreboval bych aby se v udalosti
> OnMouseDown zmenil kurzor u mysi a pri OnMouseUp zase zpatky.
> A moc se me nedari. Ten kurzor se pri zmacknutem tlacitku u myse
> nejak nechce prekreslit - nevite nekdo jak na to ?
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor := crHandPoint;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor := crDefault;
end;
--
Jan Fiala
mailto:jan.fiala@wo.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Radek
28. 11. 2003 9:26
> > mam na formu PaintBox a potreboval bych aby se v udalosti
> > OnMouseDown zmenil kurzor u mysi a pri OnMouseUp zase zpatky.
> > A moc se me nedari. Ten kurzor se pri zmacknutem tlacitku u myse
> > nejak nechce prekreslit - nevite nekdo jak na to ?
>
> procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Screen.Cursor := crHandPoint;
> end;
>
> procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Screen.Cursor := crDefault;
> end;
>
> --
> Jan Fiala
> mailto:jan.fiala@wo.cz
>
Jo diky ale tohle presne me vcera nefungovalo - dnes sedim na jinem PC s W2000
a svete div
se jde to - budu to muset jeste overit v puvodni konfiguraci. Jinak jsem jeste
narazil na jeden problem
kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko tak se OnMouseUp
nezavola (coz je celkem jasne)
a kurzor zustane zmeneny - tak zatim nevim jak to elegantne vyresit. Mozna v
OnMouseDown nahodit nejaky priznak a v
OnMouseMove PaintBoxu pak podle priznaku vracet puvodni kurzor nebo nejak
globalne odchytavat OnMouseUp ?
Radek
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Vit Krska
28. 11. 2003 9:54
>
> Jo diky ale tohle presne me vcera nefungovalo - dnes sedim na
> jinem PC s W2000 a svete div
> se jde to - budu to muset jeste overit v puvodni konfiguraci.
> Jinak jsem jeste narazil na jeden problem
> kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko
> tak se OnMouseUp nezavola (coz je celkem jasne)
> a kurzor zustane zmeneny - tak zatim nevim jak to elegantne
> vyresit. Mozna v OnMouseDown nahodit nejaky priznak a v
> OnMouseMove PaintBoxu pak podle priznaku vracet puvodni
> kurzor nebo nejak globalne odchytavat OnMouseUp ?
>
> Radek
>
u toho paitboxu si osetri udalosti
CM_MOUSEENTER a CM_MOUSELEAVE
to by mohlo pomoct
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jirka
28. 11. 2003 10:05
Radek wrote:
> se jde to - budu to muset jeste overit v puvodni konfiguraci. Jinak jsem
jeste narazil na jeden problem
> kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko tak se OnMouseUp
nezavola (coz je celkem jasne)
> a kurzor zustane zmeneny - tak zatim nevim jak to elegantne vyresit. Mozna v
OnMouseDown nahodit nejaky priznak a v
> OnMouseMove PaintBoxu pak podle priznaku vracet puvodni kurzor nebo nejak
globalne odchytavat OnMouseUp ?
Ahoj,
zkus se podivat na MouseEnter a MouseLeave.
Jirka
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jan Fiala
28. 11. 2003 10:46
28.11.2003 Radek:
>> procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
>> Shift: TShiftState; X, Y: Integer);
>> begin
>> Screen.Cursor := crHandPoint;
>> end;
>>
>> procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
>> Shift: TShiftState; X, Y: Integer);
>> begin
>> Screen.Cursor := crDefault;
>> end;
> Jo diky ale tohle presne me vcera nefungovalo - dnes sedim na jinem PC s
W2000 a svete div
> se jde to - budu to muset jeste overit v puvodni konfiguraci.
> Jinak jsem jeste narazil na jeden problem
> kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko tak
> se OnMouseUp nezavola (coz je celkem jasne)
> a kurzor zustane zmeneny - tak zatim nevim jak to elegantne
> vyresit. Mozna v OnMouseDown nahodit nejaky priznak a v
> OnMouseMove PaintBoxu pak podle priznaku vracet puvodni kurzor
> nebo nejak globalne odchytavat OnMouseUp ?
Nebude to fungovat, pokud pouzivas obsluhy Drag/Drop. Proto se na to
mnohem lip hodi Drag/Drop nez MouseUp a MouseDown
--
Jan Fiala
mailto:jan.fiala@wo.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)